home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Pascal / Applications / P4⁄Mac 1.0 / test programs / prompt.pcode < prev   
Encoding:
Text File  |  1994-07-29  |  615 b   |  44 lines  |  [TEXT/JOHN]
  1. l   3
  2.  ent   1   l   4
  3.  ent   2   l   5
  4.  lca'Hello!          '
  5.  ldci        6
  6.  ldci        6
  7.  lda   0       6
  8.  csp         wrs
  9. i   10
  10.  lda   0       6
  11.  csp         wln
  12.  lca'Type a number:  '
  13.  ldci       15
  14.  ldci       15
  15.  lda   0       6
  16.  csp         wrs
  17.  lao           9
  18.  lda   0       5
  19.  csp         rdi
  20. i   20
  21.  lca'Its square is:  '
  22.  ldci       15
  23.  ldci       15
  24.  lda   0       6
  25.  csp         wrs
  26.  ldoi          9
  27.  ldoi          9
  28.  mpi
  29.  ldci       10
  30.  lda   0       6
  31. i   30
  32.  csp         wri
  33.  lda   0       6
  34.  csp         wln
  35.  retp
  36. l   4=      10
  37. l   5=       9
  38. q
  39. i    0
  40.  mst           0
  41.  cup   0   l   3
  42.  stp
  43. q
  44.